unit U_sobre;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
  Vcl.ExtCtrls, Vcl.Buttons,ShellApi;

type
  Tfm_sobre = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label11: TLabel;
    BitBtn1: TBitBtn;
    lbl1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure lbl1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure JumpTo(const aAdress: String);
  end;

var
  fm_sobre: Tfm_sobre;

implementation

{$R *.dfm}

procedure Tfm_sobre.BitBtn1Click(Sender: TObject);
begin
Close;
end;
procedure Tfm_sobre.JumpTo(const aAdress: String);
var
  buffer: String;
begin
  buffer := 'http://' + aAdress;
  ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;
procedure Tfm_sobre.lbl1Click(Sender: TObject);
begin
   JumpTo(lbl1.Caption);
end;

end.
